home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
mfix0712.zip
/
MBS30712.FIX
< prev
next >
Wrap
Text File
|
1992-07-12
|
11KB
|
279 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against E:\RBBS\TEMP\RBBSSUB3.BAS to produce E:\RBBS\CHAT\RBBSSUB3.BAS
* E:\RBBS\TEMP\RBBSSUB3.BAS: Date 7-7-1992 Size 132992 bytes
* ------------[ Created 07-12-1992 19:57:27 ]------------
* REPLACING old line(s) by new
33160 CALL UpdtCalr ("Sysop began chat",1)
ZPageStatus$ = ""
* ------[ first line different ]------
ZSysopGreeting$ = "Hi " + ZFirstName$ + ", this is " + _ ' DD062801/ANSICHAT
ZSysopFirstName$ + " " + ZSysopLastName$ + _ ' DD062801/ANSICHAT
". Sorry to break in and CHAT but..." ' DD062801/ANSICHAT
IF NOT ZLimitMinsPerSession THEN _ ' LK 08/17/91
CALL TimeBack (1)
IF ZANSITest = ZTrue OR ZWasGR > 1 THEN ' DD062801/ANSICHAT
CALL ANSIChat ' DD062801/ANSICHAT
ELSE
CALL SkipLine (1)
CALL QuickTPut1 (ZSysopGreeting$)
CALL SysopChat
END IF
'Sysop chat allows overstay of Scheduled Events- no way to control giveback
IF NOT ZLimitMinsPerSession THEN _ ' LK 08/17/91
CALL TimeBack (2)
ZCommPortStack$ = CHR$(13)
GOTO 33155
'
'
' * UP / CTRL-UP: INCREASE THE ON-LINE USER'S SECURITY BY ONE / FIVE
'
'
* REPLACING old line(s) by new
43068 ' $SUBTITLE: 'SaveProf - subroutine to read a user profile'
' $PAGE
'
' NAME -- SaveProf
'
' INPUTS -- PARAMETER MEANING
' ZBPS
' ZEightBit
' ZExitToDoors
' ZWasGR
' ZMsgRec$
' ZNodeRecIndex
' ZSysop
' ZUpperCase
' ZTimeLoggedOn$
' ZPrivateDoor
' ZReliableMode
'
' OUTPUTS -- NONE
'
' PURPOSE -- Saves a user's options and communications parameters
' in the node record when a user exits to a "door" so
' that he is in the same status as when he exited.
'
SUB SaveProf (IParm) STATIC
* ------[ first line different ]------
ON IParm GOTO 43070,43080,43075
* REPLACING old line(s) by new
43070 ZActiveMessageFile$ = ZOrigMsgFile$
ZSubParm = 3
CALL FileLock
CALL OpenMsg
FIELD 1, 128 AS ZMsgRec$
GET 1,ZNodeRecIndex
IF ZGlobalSysop THEN _
MID$(ZMsgRec$,1,30) = "SYSOP" + SPACE$(25)
MID$(ZMsgRec$,40,2) = STR$(ZExitToDoors)
MID$(ZMsgRec$,42,2) = STR$(ZEightBit)
MID$(ZMsgRec$,44,2) = STR$(ZBPS)
MID$(ZMsgRec$,46,2) = STR$(ZUpperCase)
MID$(ZMsgRec$,48,5) = MKS$(ZNumDnldBytes!) + MID$(STR$(-ZBatchTransfer),2)
MID$(ZMsgRec$,53,2) = STR$(ZWasGR)
MID$(ZMsgRec$,55,2) = STR$(ZSysop)
MID$(ZMsgRec$,65,3) = CHR$(VAL(LEFT$(ZOrigTimeLoggedOn$,2))) + _
CHR$(VAL(MID$(ZOrigTimeLoggedOn$,4,2))) + _
CHR$(VAL(MID$(ZOrigTimeLoggedOn$,7,2)))
MID$(ZMsgRec$,72,2) = STR$(ZPrivateDoor)
MID$(ZMsgRec$,74,1) = MID$(STR$(ZTransferFunction),2,1)
MID$(ZMsgRec$,75,1) = ZWasFT$
MID$(ZMsgRec$,113,2) = MKI$(CINT(ZTimeCredits!)/60)
MID$(ZMsgRec$,79,8) = LEFT$(ZDooredTo$+" ",8)
MID$(ZMsgRec$,91,2) = STR$(ZReliableMode)
CALL BreakFileName (ZCurPUI$,ZOutTxt$,ZUserIn$,ZWasZ$,ZFalse)
MID$(ZMsgRec$,93,8) = ZUserIn$ + SPACE$(8 - LEN(ZUserIn$))
IF ZLocalUser THEN _
ZWasZ$ = ZCarriageReturn$ + ZCarriageReturn$ _
ELSE ZWasZ$ = " 0"
MID$(ZMsgRec$,101,2) = ZWasZ$
MID$(ZMsgRec$,103,2) = STR$(ZLocalUserMode)
ZConfName$ = LEFT$(ZConfName$,INSTR(ZConfName$ + " "," ") - 1)
MID$(ZMsgRec$,105,8) = ZConfName$ + SPACE$(8 - LEN(ZConfName$))
MID$(ZMsgRec$,115,1) = MID$(STR$(ZAutoLogoffReq),2,1)
MID$(ZMsgRec$,117,2) = STR$(ZMenuIndex)
MID$(ZMsgRec$,119,2) = LEFT$(DATE$,2)
MID$(ZMsgRec$,121,2) = MID$(DATE$,4,2)
MID$(ZMsgRec$,123,2) = RIGHT$(DATE$,2)
MID$(ZMsgRec$,125,2) = LEFT$(TIME$,2)
MID$(ZMsgRec$,127,2) = MID$(TIME$,4,2)
' *** Save additional parameters for door restoral
* ------[ first line different ]------
* INSERTING new line(s)
43075 CALL OpenOutW (ZNodeWorkDrvPath$+"DRST"+ZNodeFileID$+".DEF")
CALL PrintWorkA (STR$(ZLimitMinsPerSession))
CALL PrintWorkA (ZWasNG$)
CALL PrintWorkA (ZIndivValue$)
CALL PrintWorkA (ZOrigDateTimeOn$)
CALL PrintWorkA (ZOrigTimeLoggedOn$)
CALL PrintWorkA (STR$(ZUserFileIndex))
CALL PrintWorkA (ZUpldDir$)
ZOutTxt$ = STR$(ZUpldDir$ = ZFMSDirectory$ OR ZLimitSearchToFMS)
CALL PrintWorkA (ZOutTxt$)
CALL PrintWorkA (ZCBaud$)
CALL PrintWorkA (STR$(ZBankTime)) 'lk 08/17/91 Save for Xpress
CALL PrintWorkA (STR$(ZBPS)) 'Pe 07/11/92
Call PrintWorkA (STR$(ZCBPS)) 'Pe 07/11/92
CLOSE 2
If IPARM = 3 Then Exit Sub 'Pe 07/12/92
* REPLACING old line(s) by new
44003 ZUserLogonTime! = VAL(HourLoggedOn$) * 3600! + _
VAL(MinLoggedOn$) * 60! + _
VAL(SecLoggedOn$)
HourLoggedOn$ = ""
MinLoggedOn$ = ""
SecLoggedOn$ = ""
IF ZMinsPerSession < 1 THEN _
ZMinsPerSession = 3
IF NOT ZEightBit THEN _
OUT ZLineCntlReg,&H1A
IF LEFT$(ZMsgRec$,7) = "SYSOP " THEN _
ZFirstName$ = ZSysopPswd1$ : _
ZActiveUserName$ = ZSysopPswd1$ + " " + ZSysopPswd2$ _
ELSE ZFirstNameEnd = INSTR(ZMsgRec$," ") : _
ZLastNameEnd = INSTR(ZFirstNameEnd + 1,ZMsgRec$ + " "," ") : _
ZFirstName$ = LEFT$(ZMsgRec$,ZFirstNameEnd-1) : _
ZLastName$ = MID$(ZMsgRec$,ZFirstNameEnd + 1,ZLastNameEnd - (ZFirstNameEnd + 1)) : _
ZActiveUserName$ = MID$(ZFirstName$ + " " + ZLastName$,1,31)
ZWasZ$ = ZFirstName$
CALL OpenWork (2,ZNodeWorkDrvPath$+"DRST"+ZNodeFileID$+".DEF")
CALL ReadDir (2,1)
ZLimitMinsPerSession = VAL (ZOutTxt$)
CALL ReadDir (2,1)
ZWasNG$ = ZOutTxt$
CALL ReadDir (2,1)
ZIndivValue$ = ZOutTxt$
CALL ReadDir (2,1)
ZOrigDateTimeOn$ = ZOutTxt$
CALL ReadDir (2,1)
ZOrigTimeLoggedOn$ = ZOutTxt$
CALL ReadDir (2,1)
ZUserFileIndex = VAL(ZOutTxt$)
CALL ReadDir (2,1)
ZUpldDoor$ = ZOutTxt$
CALL ReadDir (2,1)
ZFMSDoor = VAL(ZOutTxt$)
CALL ReadDir (2,1)
ZCBaud$ = ZOutTxt$
CALL ReadDir (2,1) 'lk 08/17/91 added for Silver Xpress
ZTempBankTime = VAL (ZOutTxt$) 'lk 08/17/91 for Xpress
* ------[ first line different ]------
CALL ReadDir (2,1) 'Pe 07/11/92
ZBPS = Val(ZOutTxt$) ' Pe 07/11/92
CALL ReadDir (2,1) 'Pe 07/11/92
ZCBPS = Val(ZOutTxt$) ' Pe 07/11/92
CLOSE 2
CALL DoorReturn
END SUB
* REPLACING old line(s) by new
57005 IF CallersFileIndexTemp! < 1 OR ZRet THEN _
* ------[ first line different ]------
CLOSE 4 : _ ' Pe 07/09/92
GOTO 57101
* REPLACING old line(s) by new
57100 IF INSTR(ZOutTxt$,"LOGON DENIED") THEN _
IF NOT ZSysop THEN _
RETURN
IF ZJumpSearching THEN _
ZWasDF$ = ZOutTxt$ : _
CALL AllCaps (ZWasDF$) : _
IF INSTR(ZWasDF$,ZJumpTo$) = 0 THEN _
RETURN _
ELSE CALL CheckColor (ZOutTxt$,ZJumpTo$,"") : _
ZJumpSearching = ZFalse
ZSubParm = 5
CALL TPut
WasX = 1
CALL AskMore ("",ZTrue,ZTrue,WasX,ZFalse)
* ------[ first line different ]------
IF ZSubParm = -1 THEN _ ' RH070402
GOTO 57102 _ ' RH070402
ELSE IF ZNo THEN _ ' RH070402
GOTO 57101 ' RH070402
RETURN
* REPLACING old line(s) by new
57102 ZJumpSupported = ZFalse
* ------[ first line different ]------
IF OrigCal$ <> ZCallersFile$ THEN _ ' RH070401
ZCallersFile$ = OrigCal$ : _
CALL SetCall
END SUB
* REPLACING old line(s) by new
58181 MarkingFiles = ZFalse
IF (WasX$ = "D" OR WasX$ = "M") THEN IF CanDnld THEN _
MarkingFiles = (WasX$ = "M") : _
AtEndList = ZFalse : _ 'PE 08/04/91
* ------[ first line different ]------
CALL AskItems ("DM",WasX$,ZTrue,"file",ZMarkedFiles$) : _ ' KG062401
IF ZWasQ = 0 THEN _
GOTO 58183
IF WasX$ = "*" THEN IF ZPersonalDnld THEN _
GOTO 58193
* REPLACING old line(s) by new
58188 IF ProcessedNew OR MarkingFiles OR NOT ZListOnly THEN _
ProcessedNew = ZFalse : _
RETURN
ZUserIn$(0) = ""
WasI = ZAnsIndex ' check whether in dir
WHILE WasI <= ZLastIndex
CALL AraAllCaps (ZUserIn$(),WasI)
ZWasZ$ = ZUserIn$(WasI)
CALL UnMarkItems (ZMarkedFiles$,WasI,ZLastIndex,WasX,ZTrue)
Temp$ = ZUserIn$(WasI)
* ------[ first line different ]------
CALL AllCaps (Temp$) ' KG062401
IsProto = (LEN(Temp$) = 1 AND _
INSTR(ZDefaultXfer$,Temp$) > 0)
ZOK = IsProto
WasJ = LastRec + 1
WasX = INSTR(Temp$,".")
AltTemp$ = ""
IF NOT IsProto THEN _
IF WasX = 0 THEN _
AltTemp$ = Temp$ + "." + ZDefaultExtension$ _
ELSE IF WasX = LEN(Temp$) THEN _
AltTemp$ = LEFT$(Temp$,WasX-1)
WHILE WasJ > 1 AND NOT ZOK
WasJ = WasJ - 1
GET #2,WasJ
GOSUB 58191
IF CanGet THEN _
MID$(PartToPrint$,13,1) = " " : _
WasX$ = LEFT$(PartToPrint$,INSTR(PartToPrint$," ") - 1) : _
ZOK = (Temp$ = WasX$) : _
IF NOT ZOK THEN _
IF AltTemp$ <> "" THEN _
ZOK = (AltTemp$ = WasX$)
WEND
IF ZOK THEN _
GOSUB 58189 : _
IF ZOK OR IsProto THEN _
WasX$ = MID$(STR$(WasJ),2) : _
ZUserIn$(0) = ZUserIn$(0) + _
WasX$ + _
SPACE$(5 - LEN(WasX$))
IF NOT ZOK AND NOT IsProto THEN _
CALL QuickTPut1 (ZWasZ$ + " not found - omitted") : _
FOR WasK = WasI + 1 TO ZLastIndex : _
ZUserIn$(WasK - 1) = ZUserIn$(WasK) : _
NEXT : _
ZLastIndex = ZLastIndex - 1 : _
WasI = WasI - 1
WasI = WasI + 1
WEND
ZWasQ = ZLastIndex
RETURN
* REPLACING old line(s) by new
59143 WasZ$ = ZUserIn$(ZAnsIndex)
CALL AllCaps (WasZ$)
IF INSTR(WasZ$,"*") OR INSTR(WasZ$,"?") THEN _
* ------[ first line different ]------
CALL QuickTPut ("Sorry Wildcards NOT allowed !",1) : _
RETURN
ZFileName$ = WasZ$
ZFileNameHold$ = WasZ$
CALL BadFile (ZFileNameHold$,BadFileNameIndex)
ON BadFileNameIndex GOTO 59145,59148,59150